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/ (x, y, z) =s ray. start Point 
2 

3 Get the first run length in each projected ray path. 

4 rxY = iwojectionxY .firstRuriLengthQ 

5 rxz = jyrojectionxz -first Runljerigth{) 
6 

7 while unterminated 

8 if vxy < rxz 

9 subclivisiort.h s averseRun{rxY , a-\ z) 
10 

11 Calculate the position of the next run. 

12 x+ = vxy 

13 V + + 
14 

15 Shorten the corresponding XZ run. 

16 rxz— = txy 
17 

IS Get the next X Y run length. 

19 rxY — pwjectionxY .nextRunLengthQ 

20 

21 else ifrxY > rxz 

22 svbdivi sion . traverse R'un(rx Z * ^, V* z) 
23 

24 Calculate the position of the next run. 

25 x+ = rxz 

26 z + -h 
27 

28 Shorten the corresponding X Y run. 

29 vxy- = rxz 
30 

31 Get the next XZ run length. 

32 rxz = projectionxz^^tRunLengthO 
33 

34 elseThe XY and XZ nins have the same length. 

35 §iibdivision:traverseRun(rxz > 3/> *) 
36 

37 Calculate position of next run. 

38 x+ = rxz 

39 y+ + 

40 z + + 
41 

42 Get the next XY and XZ run length. 

43 rxY = projectiortxY -next Run LengthQ 

44 rxz = projectionxz .nextRunLengthQ 
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7 if rxY < rxz 
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/ For each run in the list 

2 for i = 0; i < list.lenglh; i + + 

3 if ray. run. end < list*run[i].start 

4 No intersection exists 
J return 

tf 

7 if ray.vun.start < li££.nm[«].end 

# Intersection exists 

9 xo = max(ra^.7tm.$ta7-i, J£$t.rtm[i].$far£) 

70 ret = mm^ay.^n.end^Hst.run^efxd) 

II subdivzsion.ti*averseRiin(xi — xo r Xo,y. z) 
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/ i = 0 

2 j = list. length 

3 

4 if ray.rxtn.end < list.run[i]. start 

5 No intersection exists 

6 return 
7 

8 if ray. run. start > list.run[j).end 

9 No intersection exists 
JO return 

11 

12 inter sect RunListii, j ) 

1 inter sectRunList(inti,intj) 

2 in — j 

3 I intersection cx i sts 

4 xq = max(ray.run.start.Jist.i*un[i].stai % t) 

5 Xi = mxn(ray.run.end y list.run[i\.end) 

6 sulriivi$ion.braverseRun(xi — .to, #o. y, z) 

7 return 
8 

9 i' = l(* + i>/2J 

jo t = j' + L 
// 

12 if ray. run. start < list. run[j'). end 

J3 inter sectRunbist(i, j' ) 

14 

15 if ray.run.end > list.run[i']. start 

16 inter sect RunList(z , j ) 
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